home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 44
/
PCMania CD44_1.iso
/
vb40
/
vb4-4.cab
/
alarm.frm
next >
Wrap
Text File
|
1995-08-15
|
3KB
|
104 lines
VERSION 4.00
Begin VB.Form AlarmForm
BorderStyle = 1 'Fixed Single
Caption = "Alarm Clock"
ClientHeight = 780
ClientLeft = 1230
ClientTop = 1635
ClientWidth = 3135
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 1185
Icon = "ALARM.frx":0000
Left = 1170
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 780
ScaleWidth = 3135
Top = 1290
Width = 3255
Begin VB.Timer Timer1
Interval = 500
Left = 2640
Top = 120
End
Begin VB.Label lblTime
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 2415
End
End
Attribute VB_Name = "AlarmForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim AlarmTime
Const conMinimized = 1
Private Sub Form_Click()
AlarmTime = InputBox("Enter alarm time", "VB Alarm", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "The time you entered was not valid."
Else ' String returned from InputBox is a valid time,
AlarmTime = CDate(AlarmTime) ' so store it as a date/time value in AlarmTime.
End If
End Sub
Private Sub Form_Load()
AlarmTime = ""
End Sub
Private Sub Form_Resize()
If WindowState = conMinimized Then ' If form is minimized, display the time in a caption.
SetCaptionTime
Else
Caption = "Alarm Clock"
End If
End Sub
Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time") ' Display time using medium time format.
End Sub
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
If lblTime.Caption <> CStr(Time) Then
' It's now a different second than the one displayed.
If Time >= AlarmTime And Not AlarmSounded Then
Beep
MsgBox "Alarm at " & Time
AlarmSounded = True
ElseIf Time < AlarmTime Then
AlarmSounded = False
End If
If WindowState = conMinimized Then
' If minimized, then update the form's Caption every minute.
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
' Otherwise, update the label Caption in the form every second.
lblTime.Caption = Time
End If
End If
End Sub